rm(list = ls())

## packages 

library(tidyverse)
library(fixest)

## Load data 

dat <- readRDS('data/civey_clean.rds') 

outcome_vars <- c("vote_cdu_csu",
                  "vote_fdp",     
                  "vote_grune",   
                  "vote_linke",   
                  "vote_spd")

## Main 2WFE spec 

feols(.[outcome_vars] ~ treated_post | user_id + date, 
            data = dat %>% filter(foreign_non_eu_share_bin == 'High'),
            cluster = ~ user_id) %>%
  etable()




